From b4222280904cb7afa64e83b30b7f0f16df62989b Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Mon, 14 Mar 2011 22:36:07 -0400 Subject: [PATCH] * lisp/help-fns.el (variable-at-point): Skip leading quotes, if any (bug#8253). --- lisp/ChangeLog | 5 +++++ lisp/help-fns.el | 1 + 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 117744b5ad3..8790f045a30 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-03-15 Kevin Ryde + + * help-fns.el (variable-at-point): Skip leading quotes, if any + (bug#8253). + 2011-03-15 Stefan Monnier * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e27a1e47b5c..ede80f858bf 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -534,6 +534,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound." (with-syntax-table emacs-lisp-mode-syntax-table (or (condition-case () (save-excursion + (skip-chars-forward "'") (or (not (zerop (skip-syntax-backward "_w"))) (eq (char-syntax (following-char)) ?w) (eq (char-syntax (following-char)) ?_) -- 2.30.2